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FIG. 3 
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FIG. 4 



1 


Module: identify_caller 






2 


Submodule of: routing_to_skill 




3 


Input attributes: 


ANI : 9digits 




4 


Output attributes: 


home_phone : 9digits 


5 




account_number 


: ISdigits 


6 




cust_rec : tuple 


(name: string, 


7 






address: string, 


8 






card color: ("platinum", 


9 






"gold", "green"), 


10 






hates_promos? : boolean, 


11 






estimated_income_bracket : 


12 


** 




("0-10K", ">10K-20K",..., 
">100K-150K", ">150"), 


13 






14 






last_sent_bonus_check:date) 


15 


Enabling condition: 


true 




16 


Type: flowchart 




17 


Computation: See Fig. 3 




18 


Side-effect: yes 






19 


Side Effect function: 


(IVR Dip) 
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FIG. 6 



4 
1 


Module: info_about_customer 


2 


Submodule of: 


routing, to skill 


3 


Input attributes: 


account_number 


4 


cusLrec 


5 


Output attributes: cust_ value : [1..10] 


6 




frustration_score : [U0] 


7 




late_payments_score : [1 ..10] 


8 




recenLpurchases :list(tuple( date : date, 


9 




item : 20digit, 


10 




qty : int, 


11 




amount: $value )) 


12 




marketinq_vs_collections : |" market", 


13 




"collect"} 


14 






15 Enabling condition: 


VAL(account_number) 


16 


Type: 


declarative 


17 


Side-effect: 


no 



FIG. 7 



1 


Module: info_from_web 




2 


Submodule of: routing_to_skill 


3 


Input attributes: 


ANI 


4 




home_phone 


5 




account_number 


6 


Output attributes: 


web destinations : list(tuple(regions: set of 


7 


("Australia'V'Asia".... 


8 




"NAmerica-US", "US"}, 


9 




itinerary:web_form_content, 


10 




date_last_modified : date )) 


11 


Enabling condition: 


web_db_load < 95% or not VAL(account_number) 


12 


Type: 


foreign 


13 


Computation: 


get_web_data(ANI, home_phone, account_number) 


14 


Side-effect: 


no 
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FIG. 8 



1 


Module: promo_selection 


2 


Submodule of: routing_to_skill 


3 


Input attributes: 


ANI 


4 


DNIS 


5 




account_number 


6 




cust_rec 


7 




cust_ value 


8 




recent_purchases 


9 




frustration_score 


10 




late_payments_score 


11 




web_destinations 


12 


Output attributes: 


promo_hit_list : list ( promo_message ) 


13 


Enabling condition: 


cust_rec.hates_promos? = false 


14 


Type: 


foreign 


15 


Computation: 


get_promo_hit_list(ANI, DNIS, account_number, 


16 




cust_rec, cust_value, recent_purchases, 


17 




account_status, frustration_score, 


18 




late_payments_score, web_destinations) 


19 


Side-effect: 


no 
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FIG. 1 0 



1 

1 


Module: routing„decisions 


2 


Submodule of: routing_to_skill 


3 


Input attributes: 


ANI 


A 


DNIS 


5 




account_number 


6 




cust_rec 


7 




cust_value 


8 




recent_purchases 


9 




frustration_score 


10 




late_payments_score 


11 




web_destinations 


12 


Output attributes: 


calLpriority : [1..4] \\corresponds to "low", 


13 




"med", "high", "top" 


14 




skill : | u norm_tier_dom n , *'norm_tier_intr , 1 


15 




"australia_promo", "high_tier", 


16 




collections"! 


17 




on_queue_promo : message_identifier 


18 




screen_pop_list : list ( screen_entry ) 


19 


Enabling condition: 


true 


20 


Type: 


declarative 


21 


Side-effect: 


yes 
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FIG. 1 1 



1 Module: calculate_wrap_up 



2 Submodule of: routing. to_skill 

3 Input attributes: Ani 

4 dnis 

5 Web_DB_Load 

6 Promos_0f_The_Day 

7 CusLRec 

8 Home_Phone 

9 AccounLNumber 

10 Cust_ Value 

1 1 Frustration_Score 

1 2 Late_Payments_Score 

13 RecenLPurchases 

1 4 Marketing_VS_Collections 

15 Web_Destinations 

16 CalLPriority 

17 Skill 

18 On_Queue_Promo 

19 Screen_Pop_List 

20 Promo_Hit_List 

21 Output attributes: wrap_up : set ( tuple ( att_name: string, 

22 value: string )) 

23 Enabling condition: true 

24 Type: decision 

25 Computation: 

26 Rules: if true then wrap_up <- (att_name: "DNIS", 

27 value : convert-to-string (DNIS)) 

28 if true then wrap_up <- (att_name: "ANI", 

29 value: convert-to-string (ANI)) 

30 if true then wrap_up <- (att_name: "skill", 

31 value: skill) 

32 if web_destinations not empty then wrap_up <- 

33 (att_name: \"web_destinations", 

34 value: (convert-to-string 

35 (web_destinations)) 

36 if cust_rec.card_color = "gold" <- 

37 (att_name:"frustration_score", 

38 value: convert-to-string 

39 (frustration_score)) 

40 Combining policy: wrap_up_cp //use contributions of all 

41 rules with true condition 

42 Side-effect: yes 

43 Side-effect function: write_into_archive ( wrap_up ) 
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FIG. 1 2 



1 

1 


Module: get_recent_contacts_for_this_customer 


2 


Submodule of: info 


_about_customer 




3 


Input attributes: 


account_number 




4 


Output attributes: 


recent_contacts : 


list ( tuple ( date: date, 


5 




event: event_type, 


6 






delay_during_contact: int, 


7 






\\ minutes 


8 






delay_before_shipment: int 


9 






\\ days 


10 






amount: $value ) ) 


11 


Enabling condition: 


true 


12 


Type: 


foreign 




13 


Computation: 


using recent_contacts_db 


14 




select date,event,amount 


15 




from contact_db 




16 




where acct_num 


= accounLnumber 


17 


Side-effect: 


no 
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FIG. 1 3 

1 Module: get_recent_purchases_for_this_customer 

2 Submodule of: info_about_customer 

3 Input attributes: account_number 

4 Output attributes: recent_purchases : list ( tuple ( date: date, 

5 item : 20digit, 

6 qty : int, 

7 amount : $value ) ) 

8 Enabling condition: true 

9 Type: foreign 

10 Computation: using purchase_db 

11 select date,item,qty,amount 

12 from purchases 

13 where acct_num = accounLnumber 

14 Side-effect: no 
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FIG, 1 4 


i 


Module: geLaccount_history_for_this_customer 


2 


Submodule of: info_about_customer 


3 


Input attributes: account_number 




4 


Output attributes: account_history : 


tuple ( overdue amount: 


5 




$value, 


6 




number_days_ overdue: 


7 




int, 


8 




history: list ( tuple ( 


9 




date: date, 


10 




item : 20digit, 


11 




amount : lvalue ) ) ) 


12 


Enabling condition: true 




13 


Type: foreign 




14 


Computation: using account_history_db 


15 


select over_amt, 


num_days,history 


16 


from account_history 


17 


where acct_num 


= account_number 


18 


Side-effect: no 
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FIG. 1 5 



1 Module: calculate_frustration_score 



2 Submodule of: info_about_customer 

3 Input attributes: recenLcontacts 

4 Output attributes: frustratioruscore : [1..10] 

5 Enabling condition: VAL(recenLcontacts) 

6 Type: decision 

7 Computation: 

8 Rules: if recent_contacts#1 defined then 

9 frustration_score <- 

10 (value/50) * 

11 [(delay_during_contact/2) + 

12 max(0,delay_before_shipment - 

13 10)/3] 

H if recent_contacts#2 defined then 

15 frustration_score <- 

16 (value/100) * 

17 [(delay_during_contact/2) + 

18 max (O,delay_before_shipment - 

19 10)/3] 
20 

21 Combining policy: frustration__score_cp //add contributions 

22 of true rules and 

23 round up, to max 

24 of 10 
25 

26 Side-effect: no 
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1 Module: calculate_net_profit_score 

2 Submodule of: info_about_customer 

3 Input attributes: recent_contacts, 

4 recent_purchases, 

5 account_history, 

6 cust_rec 

7 Output attributes: net_profit„score 

8 Enabling condition: recent_purchases#1.date<=now-60 

9 Type: decision 

10 Computation: 

11 Rules: if recent_purchases not empty then 

12 net_profit_score <- 

13 10% * sum (recent_purchases#Lamount 

14 where recent_purchases#Ldate > now - 

15 60) 

16 if recent_contacts not empty then 

17 net_profit_score <- 

18 -( 5 * count ( recent_contacts#i 

19 where recent_contacts#i.type = 

20 "complaint")) 

21 if account_history«overdue_amount > 0 

22 then net_profit_score <- 

23 - account_history.overdue_amount * 

24 account_history,number_days_overdue / 30 

25 if cust_rec.card_color = "platinum" then 

26 net_profit_score <- 100 

27 if cust__rec.card_color = "gold" then 

28 net_profit_score <- 50 

29 if cust_rec.card_color - "green" then 

30 net_profit_score <- 10 

31 if DISABLED(cust_rec) then 

32 net_profit_score <- 20 

33 Combining policy: net_profit_score_cp //add contributions 

34 of rules with true 

35 conditions 
36 

37 Side-effect: no 
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FIG. 1 7 



A 
1 


Module: calculatejate_payment_ 


.score 


2 


Submodule of: info_about_customer 


3 


Input attributes: accounLhistory 


4 


Output attributes: late_paymenLscore 


5 


Enabling condition: VAL(account_history) 


6 


Type: decision 




7 


Computation: 




8 


Rules: 


if cust_rec.card_color = "platinum" then 


9 




late_payments_score <- 


10 




(account_history.overdue_amount 


1 1 
1 1 




number_of_days_overdue)/ 1 00 


12 




if cust_recxard_color = "gold" then 


13 




late_payments_score <- 


14 




(account_history.overdue_amount * 


15 




number_of days_overdue)/50 


16 




if cusLrec.card_color = "green" then 


17 




late_payments_score <- 


18 




(account_history.overdue_amount * 


19 




number_of days_overdue)/10 


20 


Combining policy: 


late_payment_score_cp //rule with true 


21 


condition wins; 


22 




default is 0 


23 






24 


Side-effect: no 





— I* 

\ 
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FIG. 1 8 



1 

1 


Module: calculate_cust_ value 


0 

I 


Submodule of: info 


_about_customer 


7 


Input attributes: 


net_profit_score, 


4 




late_payments_score, 


5 




cust_rec 


6 


Output attributes: 


cust_value 


7 


Enabling condition: 


true 


8 


Type: decision 


9 


Computation: 


if VAL(net_profit_score) then cust_ value <- 


10 


Rules: 


11 




(1 - l/net_profit_score) * 75 


1 L 




if cust_rec.card_color = "platinum" then 


i 7 

1 J 




cust_value <- 20 


1 A 

14 




if cust rec.card color = "gold" then cusLvalue 


15 




<- 10 


16 




if cust_rec.card_color = "green" then 


17 




cust_value <- 5 


18 




if VAL (frustration_score) then cust_ value <- 


19 




5*frustration_score 


20 


Combining policy: 


calculate_cust_vaLcp //Add values of true 


21 




rules and round up, to 


22 




max of 100, default is 


23 




0 


24 






25 


Side-effect: 


no 
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FIG. 1 9 



1 Module: calculate_marketing„vs_collections 



2 


Submodule of: info. 


_abouLcustomer 


3 


Input attributes: 


cust_value, 


4 


late_payments_score 


5 


Output attributes: 


marketing_vs_collections 


6 


Enabling condition: 


late_payments_score > 0 


7 


Type: decision 


8 


Computation: 


if late_payments_score > f(cust_ value) then 


9 


Rules: 


10 




marketing_vs_collections <- "collect 11 


11 




// f is function from [1 ..100] into [1..10], 


12 




//it could be linear, i.e., f(cust_ value) = 


13 




// cust_ value/10 


U 




// or it could be shallower in beginning and 


15 




steeper 


16 




// towards end 


17 






18 






19 


Combining policy: 


marketing. vs_collection_cp //default is 


20 




"marketing", 


21 




any rule 


22 




with true 


23 




condition 


24 




wins 


25 






26 


Side-effect: 


no 
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FIG. 20 



1 


Module: Ask_Reason_ 


For_Call 


2 


Submodule of: routing_decisions 


3 


Input attributes: 


< none > 


4 


Output attributes: 


IVR_choice 


5 
6 


Enabling condition: 


cust_value < 7 and DNIS not = 
"Australia_promotion" 


7 


Type: foreign 


8 
9 

10 
11 
12 
13 
14 


Computation: 


x := IVR_dip( question(2) ) ; 
if x = 1 then IVR_choice := "dom"; 
else if x = 2 the IVR_choice := "intl"; 
else IVR_choice[state] = EXC and 

IVR_choice[EXC]=1 


Side-effect: 


yes 


15 


Side-effect-function: IVR_dip( question (2) ) 
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FIG. 21 



1 


Module: calculate. 


business. value_of_call 


2 


Submodule of: 


routing_decisions 


3 


Input attributes: 


IVR_choice, 


4 






web_destinations, 


5 






frustration_score, 


6 






marketing. vs_collections, 


7 

1 






late_payments_score, 


Q 
0 






net_profiLscore 


Q 


Output attributes: 


business_value_of_call : int 


in 


Enabling condition: 


true 


4 4 

1 1 


Type: 


decision 


12 


Computation: 






1 7 
1 J 


Rules: 






14 




if 


true then business_value_of_call <- 


15 






(cust_ value/50 * net_profit_score) 


16 




if 


true then business_value_of_call <- 


17 






10*frustration_score 


18 




if 


DNIS = "Australia_promtion" then 


19 






business_value_of_call <- 100 


20 




if 


"Australia" in web_destinations[i]. regions for 


21 






some i where 


22 






web destinations[i].dateJast_modified > now - 


23 






30 


24 






then business. value_of_call <- 100 


25 




if 


IVR choice = "intl" then business_value_of_call <- 


26 






50 


27 




if 


marketing__vs_collections = "collect" then 


28 






business_value_of_call <- 


29 






(late_payments_score * 


30 






account_history.overdue_amount)/5 


31 


Combining policy: 


business_value_of_call_cp // Add contributions of 


32 






rules with true 


33 






conditions and round up, 


34 






default is 0 


35 








36 


Side-effect: 




no 
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FIG. 22 



1 


Module: Calculate_send_bonus_check 


2 


Submodule of: 


routing_decisions 


3 


Input attributes: 


cusLrec 


4 


Output attributes: send_bonus_check? 


5 

6 
7 
8 
9 

10 
11 
12 
13 


Enabling condition: if net_profit_score > 1000 

and cust_rec.last_sent_bonus_check < now - 60 
and marketing vs collections = "market" 
OR 

if net_profit_score > 500 

and frustration_score > 8 
and cust_rec.last_sent_bonus_check < now - 60 

and marketing_vs_collections = "market" 


14 


Type: 


foreign 


15 


Side-effect: 


yes 


16 


side-effect- 


-function: 


17 


issue. 


_and_send_check($50,cust_rec.name,cust_rec.address) 
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FIG. 23 



1, Module: calLpriority 



2 Submodule of: routing_decisions 

3 Input . attributes: business. value_of_call 

4 frustration_score 

5 Output attributes: calLpriority 

6 Enabling condition: true 

7 Type: decision 

8 Computation: 

9 Rules: if business_value_of_call < 25 then 

10 calLpriority <- 1 

11 if 25 business_value_of_call < 100 then 

12 calLpriority <- 2 

13 if 100 =< business. value_of_call < 500 then 

14 calLpriority <- 3 

15 if 500 =< business_value_of_call then 

16 calLpriority <- 4 

17 if frustration_score > 8 then 

18 calLpriority <- 4 

19 if 6 =< frustration_score <= 8 then 

20 calLpriority <- 3 

21 Combining policy: ca 1 1_ p rio rity_c p // high value wins with 

22 default result 2 
23 

24 Side-effect: no 
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1 Module: calculate.skill 

2 Submodule of: routing_decisions 



FIG. 24 



3 
4 
5 
6 
7 

8 

9 

10 

11 
12 
13 

14 
15 

16 
17 

18 
19 
20 
21 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 

41 
42 
43 
44 

45 
46 
47 



Input attributes: 



Output attributes: 
Enabling condition: 



business. value_of_call 

marketing_vs_collections 

IVR_choice 

DNIS 

web_destinations 

skill 

true 



Type: 

Computation: 
Rules: 



decision 



if marketing_vs_collections = "collections" 
then skill <- ["collections", infinity] 

if business_value_of_call > 100 
then skill <- ["high.tier", 40] 

if DNIS = "australia_promotion" then 
skill <- ["australia_promo", infinity] 

if "Australia" in web_destinations[i]. regions 

for some i where web_destinations[i].date_last_modified > 
now - 30 then 

skill <- ["australia_promo", 20] 

if cust_rec.estimated_income_bracket = ">100K-150K" then 
skill <- ["australia_promo", 25] 

if cust_rec.estimated_income_bracket = ">150K" then 
skill <- ["australia_promo", 35] 

if IVR_choice = "dom" then skill <- [ u norm_tier_dom",30] 

if IVR_choice = "intl" then skill <- ["norm_tier_intl",30] 

if "US" in web_destinationsJil. regions for some 
i where web_destinations[i].date_last_modified > 
now - 30 then 

skill <- ["norm_tier_dom", 20] 

if "US" not in web_destinations[i 
some i where web_destinations 
30 then 

skill <- ["norm_tier_intl", 20] 

Combining policy: skilLcp //weighted sum policy, and ties are 

broken by ordering "collections", 
"australia_promo", "high_tier", 
"low_tier_intl", "low_tier_dom", 

default is J_ 

Side-effect: no 



.regions for 

i].date_last_modified > now 
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FIG. 25 



1 

1 


Module: calculate_on_queue_promo 




2 


Submodule of: routing_decisions 




3 


Input attributes: 


promo_hit_hst 




A 


Output attributes: 


on_queue_promo 




c 
J 


Enabling condition: 


DISABLE if business. value > 100 or 




6 


frustration_score > 5 






7 


Type: decision 






8 


Computation: 


if 60 < ACD.expected_wait_time(skill) 




9 


Rules: 




10 




then on_queue_promo <- 




11 




promo_hit_list[#1] 




12 




if business_value_of_call < 30 


hit_list[#l] 


13 




then on_queue_promo <- promo_ 


14 


Combining policy: 


on-queue-promo-cp // first true wins 


, default 


15 




is 0 




16 








17 


Side-effect: 


no 





JAN 2 7 2003 .. 



5-4-1-4 
Serial No.: 09/251,998 
Ryan, Mason & Lewis, LLP; R. J. Mauri (203) 255-6560 

25/56 




• Hull 5-4-1-4 A 
Serial No.: 09/251,998 w 
Ryan, Mason k Lewis, LLP; R. J. Mauri (203) 255-6560 



FIG. 27 26/56 



ah- e:t 
ah value (e): bool 


VALUE 


a \-f'AM:t\ x...xt n -— t, a '.t\ a he n :f n 


APPLY 


a 1- Apply(</,€ i ,...,e n >): < 


a\-e]:t],...a\-e n :t n 


TUPLING 


o\- <2\ 2 n >:<ay.t\ t ... 1 a n \t n > 


(j\-e]:t,...,u\-e n :t 


BAGGING 


|ei e n \:\t\ 


a hei :t,..., ahe n :t 


LISTING 


ab[e 1 ,...,e n ]:[f] 


ahe:jtj 
ah unitval (e):t 


UNITVAL 


a 1- <ai :ti ,... 1 a n :t n > 


PROJECTION ON TUPLES 




ahe:[t] 
ahe#i:f 


PROJECTION ON LISTS 


ffh€i:[^], ahc2:<2 
(7 1- factor(c^ ,e2):[<f_a:<i ,s_a:t2>] 


FACTOR (ON LISTS) 


a\-e]:\t]\,a\-€2'.t2 
a h factor(ei,C2):{<f_a:ti ,s_a:<2> j 


FACTOR (ON BAGS) 


al-/:<1-^UI-S:[ti] 
ahmap(f)(S):[f] 


MAP (ON LISTS) 


ah/:^-^, a \-S:\t)\ 
ahmap(f)(S):jtj 


MAP (ON BAGS) 


a hia^t, a h 0: txf—~ f , a h S: jtj 
ah collect (id e ,d) (S):t 


COLLECT (ON BAGS) 


a hid 0 :t, a h 0: f , a h S:[f] 
ah collect (ia^.fl) (S):£ 


COLLECT (ON LISTS) 
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FIG. 28 



2802 

CANDIDATE 
TASK POOL 



2804 




PREQUAUFIER 


( 





2806 






TASK 




1 


SCHEDULER 





2810 
\ 

WORKFLOW 
SCHEMA 



2808 





2812 




EXECUTION 


y — ► 


ENGINE 




• Hull 5-4-1-4 ffc 
Serial No.: 09/251,998 W 
Ryan, Mason & Lewis, LLP; R. J. Mauri (203) 255-6560 




FIG. 31 



OR 




3 VALUE(F) G = 4 VALUE(G) DISABLED(F) 
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FIG. 33 



OR 




4 VALUE(G) F = 3 VALUE(F) DISABLED(F) 
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Initialization 

Based on the DL specification, compute rows 1, 2, and 3 of the display; 4002 
For source attribute cells or row 4 do: 

For each source attribute with value, insert value and apply 
"attribute_value_indication"; 4004 

For each source attribute that is disabled, apply 
"attribute disabled indication"; 
For each non-decision module 



In row 5, apply "module_uninitialized_indication*'; 

In row 4, apply << attribute_uninitialized_indication M ; 
For each decision module 

In row 5, apply * < module_ready_indication"; 

In row 4, apply << attribute_uninitialized_indication n ; 

For each cell in rows 6,7,8, M apply "rule_ready_indication" 3^ 4010 

Iteration 

For each event of execution engine do 
Case on event. type _ 
non_dec_module_enabled: 

in row 5, apply u module_enabled_indication^_ 



4006 



4008 



4012 



non_dec_module_ready: 

in row 5, apply "module_ready_indication"; 



4014 



non_dec_module_ready+enabled: 

in row 5, apply "module_ready+enabled_indication"; 



4016 



non_dec_module_computed: 

in row 5, apply "module_computedJndication"; 

in row 4, label corresponding attribute cell with the value computed 
and apply 

"attribute_computed_indication"; 

non_dec_module_value: 

in row 5, label cell for this module as "value" and apply 
"module_valueJndication"; 

in row 4, label corresponding attribute cell with value assigned and 

apply 

"attribute_value__indication" 



4018 



4020 
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non_dec_module_disabled: 

in row 5, label cell for this module as "disabled" and apply 

* < module_disabled_indication"; 
in row 4, label corresponding attribute cell with "_L" and apply 

"attribute_disabled_indication" _ 

dec_module_enabled+ready: 

in row 5, label cell with "enabled+ready" and apply 
"module_enabled+ready_indication M ; 

dec_module_computed: " 
in row 5, label cell with "computed" and apply 

"module_computedjndication"; 

in row 4, label cell with the computed value and apply 

"attribute_computed_indication"; _ 

dec_module_value: 

in row 5, label cell with "value" and apply 
"module. value_indication"; 

in row 4, label cell with the computed value and apply 
"attribute_value_indication"; _ 

dec_module_disabled: 

in row 5, label cell with "disabled" and apply 
"module_disabled_indication"; 
in row 4, label cell with "_L" and apply 
"attribute_disabled_indication"; _ 

comp_rule_condition_true: 

to corresponding cell, apply "rule_cond_true_indication"; 

comp_rule_contribution_computed: 

to corresponding cell, label with computed value and apply 

"rule_contribution_computed_indication"; _ 

comp_rule_contributed_value: 

to corresponding cell, label with computed value and apply 

"rule_contributed_value_indication"; _ 

comp_rule_condition„false: 

to corresponding cell, label with "1 " and apply 
"rule„condition_false_indication"; _ 

EndCase 



